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— ‘FINDHELD = SYSSFIND HELD loadable system service’ 
E FINDHELD (IDENT = ‘'V0%-000') = 


VERA ERA REAR AAA AREA AERA AA EEE A AETHER A TEAR EEA AREER Aes 


ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 

it THIS SOFTWARE IS FURNISHED UNDER A LICENSE A 

I ACCORDANCE WITH THE RMS OF 


lo lelolelolelololo) 


NO AE WN OC OODNOA VE WIN @ OOD NA UE WIN OC OO NAN EWI CO ODNOUE AN OOONOU Sw 


® 

® 

a7 

a 

® 

D MAY BE USED AND COPIED * 
H LICENSE AND WITH THE ®* 
i HIS SOFTWARE OR ANY OTHER * 
ie COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
ie OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
ie TRANSFERRED. . 
i a 
ie THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE ®* 
i AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT ®* 
ie CORPORATION. * 
® 

® 

*® 

x 

* 

® 


ie DIGITAL ASSUMES NO RESPONS 
ie SOFTWARE ON EQUIPMENT WHIC 


is 
Lee RRR RARER AAAAEA AREER ERATE ERA A EAE EAAAAAAAREAAARAERAAKEEAAEE 
' 


IBILITY FOR THE USE OR RELIABILITY OF ITS 
H IS NOT SUPPLIED BY DIGITAL. 


lee 


FACILITY: EXECUTIVE, SYSTEM SERVICES 


ssssssssssssssssssssssssssssssssssss 


RRR R RRR EE RUUUUWUNIUnononunononofnoninn 3 
NO AE WI O00 NOUR WN OOD NOUS WN HOOD NOU EWN OD RNOUE UN QOODNOU EWR 


| ABSTRACT: 
; ‘ This module contains the loadable system service SYSSFIND_HELD. 
3 ! ENVIRONMENT: 
03 VAX/VMS native mode, user, supervisor, or exec modes. 
04 - 
004 AUTHOR: Andrew C. Goldstein, CREATION DATE: 16-Nov-1982 18:51 
$04 MODIFIED BY: 
O94 vO3-004 TMKO001 Todd M. Katz 22-0¢ t-1983 


The name of the real system service entry ye for 
SFINISH_RDB has been changed from EXESFINISH_RDB to 
EXESSFIRISH_RDB. This change was required because the 
system service could no longer be reached directly from the 
executive mode system service dispatcher. 


v03-003 RSHO0039 R. Scott Hanna 21-Jun-1983 
Changes to open the rights database as a process 
permanent file when there is no image active. 


tt at ts 9 9 4 4 2 2 — 4 — 4 — 9 —4 9 — 4 2» 2s —s 4 4s 9 29 — 8 — 4 2 2s —s as —s bs 2s 9) a a as > 2 4 OO 
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PAPAIN 
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H 28 R38 1! v03-002 5ASO} 26 Gerr ry Se th 1 Pied 
: 1! Put SYSSFIND_HELD into ree own module. This 

; @& 060 1! necessary so that LOGINOUT can reference it before 
: 2 seg ! the loadable system services are loaded, at boot time. 
; 6 $068 1! v03-001 RSHO008 Sco 01-Mar-1983 
; = 666 0064 1! Changed SYSSCREATE nih te ‘tot EXESSET _RDIPTR, 

: & 0065 1! 

: 666 0066 1 !* 

: of 0067 1 

; & 0068 1 

3 69 34 1 LIBRARY ‘'SYSSLIBRARY:L1B8.L32'; 

eS. > .% 

: 71 0071 1 FORWARD ROUTINE 

kek 0072 #1 SYSSF IND_HELD; 

es 0073 1 

: 74 0074 1 EXTERNAL ROUTINE 

ae 0075 («1 EXESOPEN_RDB : ADDRESSING MODE (ABSOLUTE), 

; 76 0076 1 EXESCLOSE_ RDB NOVALUE ADBRESSING_ MODE (ABSOLUTE) 

: 77 0077 1 EXESSEINISH. RDB : ADDRESSING_MODE (ABSOLUTE 

; Pp 0078 1 

Eee , | 0079 1 BUILTIN 

; 80 0080 1 PROBER, 

; 8 0081 : PROBEW; 


<z 


F INDHELD FINDHELD = SYSSFIND_HELD loadable system servic 18. sop-19 r AX-11 Oi leg -32 v4.0-7 Page 
V04- -Sep- 2 OADSS. SRC} FINDHELD. B32;1 
14- 1984 b: tt 35, 


; GLOBAL ROUTINE SYSSFIND_HELD (HOLDER, ID, ATTRIB, CONTXT) = 

085 'e¢ 

0 § : 

; ' FUNCTIONAL DESCRIPTION: 

089 This routine searches the rights database for all identifiers 
090 held by the specified holder, and returns their identifier and 
94 attributes. 

$98 CALLING SEQUENCE: 

Boe SYSSFIND_HELD (HOLDER, 1D, ATTRIB, CONTXT) 

09 INPUT es 

09 HOLDER: address of a quadword which specifies the holder 

ba d of the records to find 


CONTXT: (optional) address of a senquere containing the 
record stream context. initially should be zero, 
re output first call, value input on subsequent 
calls. 


ane ati 
OUTPUT PARAMETERS: 
D: (optional) address to return the identifier jenguere 
ATTRIB: (optional) address to return the holder attributes longword 
IMPLICIT OUTPUTS: 
NONE 
—— VALUE : 
Status of operation 
SIDE EFFECTS: 
NONE 


eRe Se Ge Ge Oe Se Oe Be Oe Oe Oe ae Oe SHS Be Se OH Se Oe Se Se Oe Be SESH He Se SHO oe Se SHS SE Se Sees es 


tt 4 9 — > 4 2s ss 9 9 4 2s > 4 2s 4 4 ED 
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: $RAB_DEC 
REC_BUFFER : $BBLOCK CkKGBSK_ “WOLD RECORD) 
T record buffer to read records 


LABEL 
RDB_OPEN; ! rights database is open in this block 


POROPOROPOPONOPOPONOPOPORONONONINDS 2 4 2 2 ss es 


ase MPRNUMONUNON 4 = = SB BOO OOOO OO OOO OOOO OOD 
SSS SES SUS CORON MS Sener mO Se UF AR She VOR oO De 
CSOCCCCOOOC OOOO OOOO OOOO OOOO OOOO OO COCO OC OOOO OOO OOOO OOO OOOO 


abtbcbababababebababababababsbababebabahaiucbababcbcbabhaahichabababebubabshababatal 
DONO ANEW 0 OD NA UE WIN 9 ODNA MEW O ODNOUES WN OO 


: BEGIN 
; 1 LOCAL 
3 1 LOC_HOLDER : REF VECTOR, ' Local copy of HOLDER 
3 1 HOLBER_ID : VECTOR C2), ! local copy of holder id quadword 
: 1 4 p : LONG, ' Local copy of ID 
: 1 LOC_ATTRIB LONG, ' Local copy of ATTRIB 
3 1 LOC_CONTXT ONG, ' local is: of CONTXT 
: 1 STATUS LONG, ' preral atus value 
: 1 CONT INUE LONG, ; ag in a SEM continuation 
3 1 CLOSE LONG : oof tor file 170 DB flag 
3 ! RAB RAB i RAB 
3 1 
: 1 
3 1 
is 1 
3 1 
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— 
= 
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} Validate parameters 


IF AO 
HOLDE 


T ipo) 

R_IDCO) = 
HOLDER“ID(1) = 
IF ,HOCDER_10C03 GTR 
RETURN SS$_IVIDENT; 
LOC_ID = .1D; 
IF .LOC_ID nEQu 0 AND NOT PROBEW (ZREF(O), XREF(4), -LOC_ID) 


LOC HOLDER = .HO 
F (% ), »LOC_HOLDER) THEN RETURN SS$_ACCVIO; 


L 
R 
L 
L 


oomeo 


X_UIC OR .HOLDER_IDC1] NEQU 0 


RETURN SS$_ACCVIO; 


LOC_ATTRIB = ATTRIB: 
IF LOC ATTRIB NEQU 6 AND NOT PROBEW (XREF(O), XREF(4), .LOC_ATTRIB) 


HEN 
RETURN SS$_ACCVIO; 


40 
4} 
a8 
44 
49 
a3 
48 
49 
0 
1 
3i 
35 
3 
58 
59 
60 
61 2 LOC_CONTXT = .CONTXT; 
6g ¢ IF <LOC_CONTXT NEQU AND NOT PROBEW (XREF(O), %REF(4), .LOC_CONTXT) 
64 
65 
&6 
67 
68 
69 
70 
4 
78 
7% 
25 
73 
iB 
79 
80 
i 
i 
5 


PEAR APEQXP MAM & 


N 
RETURN SS$_ACCVIO; 


! Open the rights database for reading, Record whether this is an initial 


call or a continuation by checking the context is zero or not. 


CONTINUE = (IF .LOC_CONTXT NEQU 0 THEN ..LOC_CONTXT NEQU 0 ELSE 0); 
$RAB_INIT (RAB = RAB, 
RAC = KEY, 


K6B$S_HOLDER, 
HOLDER _ID(0) 

(WAT, ALK, LIM) 
KGBSK_HOLO_RECORD, 
REC_BOFFER 


);: 
STATUS = EXESOPEN_RDB (.LOC_CONTXT, 0, RABCRABSW_ISIJ, CLOSE); 
IF NOT .STATUS THEN RETURN [STATUS; 


SSN NNN So 
vuvUVvVUUU 
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me ee a a a a ak a at at at a“ = ot = = 2“ = 8 a a 


RDB_OPEN: 
BEGIN 
4 ! On an initial call, do an indexed $GET to position to the first 
holder record. Otherwise we do sequential gets. 
91 IF NOT .CONTINUE 
35 THEN 
93 4 BEGIN 
94 4 STATUS = $GET (RAB = RAB); 
95 4 IF .STATUS EQLU RMSS$_RNF THEN STATUS = SS$_NOSUCHID; 
96 4 IF NOT .STATUS 


Page ; 


RC 


-Sep-1 


- TITLE 
- IDENT 
~EXTRN 
«EX 


OFFC 00000 -ENTRY 
af AO AE 43 0002 MOVAB 
5 


04 as 
60 08 0 § a PROBER 
F L 


58 
SFFFFFFF 


LOADSS.SR 
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; 198 137 4 THEN 

; 199 1 8 BEGIN 

r $9 19 EXESSFINISH_ RDB (.LOC_CONTXT); 

; 1 00 LEAVE RDB_OPEN; 

3 6 1 4 END; 

; 20 ; 4 END 

$ Be 3 ELSE 

; 5 06 4 8 

$ Be 82 4 RABLRABS$B_RAC] = RABSC_SEQ; 

3 0 0 : 4 STATUS = SGET (RAB = RAB); 

; 08 0 4 IF .STATUS EQLU RMS$_EOF OR .STATUS EQLU RMS$_OK_LIM 

; 10 $8 4 STATUS = SS$_NOSUCHID; 

3 11 10 4 IF NOT .STATUS 

3 \¢ 11 4 THEN 

3 1 \§ BEGIN 

3 14 1 EXESSFINISH_ RDB (.LOC_CONTXT); 

; \3 1 LEAVE RDB_OPEN; 

ee Bb tues em 

3 19 0218 IF .LOC_ID NEQU 0 THEN .LOC_ID = .REC_BUFFERCKGBSL_IDENTIFIER); 
; 9 0 19 IF .LOCTATTRIB NEQU 0 THEN -LOC_ATTRIB = .REC_BUFFERCKGBSL_ATTRIBUTES); 
: é 9 1 STATUS = SS$_NORMAL; 

3 i 8 § END; 

3 ? 8 : : Close the rights database if there is no image 

: 227 0 

3 8 0 8 IF .CLOSE THEN EXESCLOSE_RDB(); 

3 § 4 0228 RETURN .STATUS 

3 0 0229 END; ! End of routine SYSSFIND_HELD 


FINDHELD FINDHELD = SYSSFIND_HELD loadable syst 


em servic 
\V04-000\ 


EXESOPEN_RDB, EXESCLOSE_RDB 

EXESSF INTSH_RDB 

SYSSGET 

SCODES ,NOWRT ,2 

SYS$F IND HELD, Save R2,R3.R4,R5,R6,R7,R8,- 
R9_,R10,RT1 

-96(SPS, SP 

HOLDER, LOC_HOLDER 

#0, #8, (LOT_HOLDER) 


(LOC_HOLDER), HOLDER_ID 
HOLDER. ID, wlorsve 825 


HOLDER. 1D+4 
48740, RO 


ee ek eS : - 


é 
Fee dD FINDHELD = SYSSFIND_HELD loadable system servic 18- ~$00713 r Oh: ; +06 Meeadse datisitoneis ot ‘ Page 2 4 
04 RET ; BU 
59 08 ac 00 28: MOVL ID, LOC_ID : 0151. EA 
3 04 D CLRL RTI : 0152 EC 
D3 F TSTL yy ID ; EC 
8 1 BEQL & : El 
8 D6 INCL R11 : EN 
58 0c AC D B 3$ MOVL ATTRIB, LOC ATTRIB : 0156 EX 
2A D4 f CLRL R10 : 0157) KC 
Hy b 4) TSTL = LOC_ATTRIB ; | KE 
9 1 004 BEQL 4$ ~ : | KE 
A 06 0004 INCL R10 : 
af 04 09 0D 0004 PROBEW #0, #4, (LOC_ATTRIB) : 
13 00048 BEQL 5$ : 
56 10 AC 0 00040 4s MOVE — CONTXT, LOC_CONTXT : 0161 | 
50 D4 00051 CLRL ~=_- RO > 0162 | 
56 D3 033 TSTL LOC_CONTXT : 
o¢ 1 5 BEQL 46 6$ : 
D6 00057 INCL RO ; 
6h 04 00 0D 00059 PROBEW #0, #4, (LOC_CONTXT) : 
4 12 00050 BNEQ 6$ : 
50 OC DO OOOSF 5$ MOVL #12, RO 3 0164) 
04 4 RET : | 
OD 50 €9 9006 6$ BLBC RO, 8$ + 0170. 
50 04 0066 CLRL = RO : 
ra dS 006 TSTL (LOC_CONTXT) : 
g 13 0006A BEQL 7$ : 
6 006C INCL RO : 
57 50 D 0006E 7$: MOVL RO, CONTINUE : 
0@ 11 00071 BRB 9$ : 
D4 90073 8$: CLRL CONTINUE : 
0044 8F 00 6E ts 00 2c 90075 9$: MOVCS #0, (SP), #0, #68, S$RMS_PTR ; 0180 | 
146 AE 4401 BF BO 0007E MOVW #17409, SRMS_PTR ; | 
18 AE 00124000 er p6 00084 MOVE #11960 6082, “eines PTR+4 : 
3 AE 10 B0 $0096 MOVW I 16.0 +32 : 
8 AE 04 AE 9E 00094 MOVAB Ro Mi "Sang PTR+36 : 
44 OA 8 AE 43 0099 MOVAB Bue 1D SRMS gh 1Re48 : 
48 AE 0108 i BO 0009E MOVW 64, SRMS_P ; 
E DD OO0A4 PUSHL > 0181 
1A AE OOF O0Ag PUSHAB RAB +2 : 
7E D4 9 A CLRL = = (SP) ; | 
56 DD OO0AB PUSHL LOC_CONTX : 
000000006 2 4 08 AD CALLS a4, “BIEXESoPEN, RDB : 
68 2 E B7 BLBC erATOS. 17$ 3 0182 
1 £8 BA BLBS CONTINUE, 10$ ; 9191 
14 AE F B PUSHAB RAB : 0194, 
000000006 9 FB ¢ CALLS #1, SYSSGET ; 
D ¢ MOVL RO, STATUS : 
00018282 «BF p CA CMPL STATUS, #98994 > 0195 
D1 BEQL 1$ : 
7S D BRB 12$ ; 196 
32 AE 34 D5 10% CLRB  —s-_- RAB+30 : 30> 
1 AE OF D PUSHAB RAB ; 


H 6 | 
Fee FINDHELD = SYSSFIND_HELD loadable system servic 13-808=13Re 93:38:06 tr abese satis Thomeit os e Page 2h 
000000006 8 1 F 3 CALLS ae S¥ssceT | 
0001827A = BF 2 b ES CPL STATUS, ¥38938 0207 | 
00018051 =F é i CAEL STATUS, #98385 
52 21€C BF ¢ F7.11$: MOVZWL #8684, STATUS 
08 : f orc 12$:  BLBS STAT TUS 138 
DOD OOCFF PUSHL LOC_CONT 
000000006 9F o1 FB | CALLS ie SACXESSEINISH. RDB 
04 58 €9 0010A 13$: BLBC Ril, 1 
9 04 AE D9 10D MOVL REC BL aurreR, (LOC_ID) 
4 SA £9 00111 148 BLBC Es aR 
$ 08 AF DO 00114 MOVL REC BU Burren, (LOC_ATTRIB) 
01 DO 00118 15$ MOVL TUS 02 1 
g E9 0011B 16$ BLBC ¢ bsE 2 3 227 
000000006 9F Fe VE CALLS SOFEXESCLOSE _RDB 
50 p 1 17$: MOVL STATUS. RO 0228 
4 00128 RET 0229 


; Routine Size: 297 bytes, Routine Base: $CODE$S + 0000 


PPETETETESETETE TE TO TE TE Tere Te ree rere re. 
o oOo OOO 
—m Moron 
=i @=- 236 
©o of wWwowd 
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3; Size: 297 code + 0 data bytes 
; Run Time :09.7 

3; Elapsed Tee: 0:23.6 

3 Lines/CPU Min: 1434 

3 eon A Me | 18211 

; Memor y Ue 133 pages 
3; Compi atten. Complete 


) 
} 
| 
~Sep-1 LOADSS<SRESFINOMELD .039; 1 (3), 
: 534 $58) 0 Etu | 
§ 1 O ELUDOM | 
| 
; PSECT SUMMARY | 
; Name Bytes Attributes 
: SCODES 297 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) | 
3 Library Statistics | 
‘iy See! Se ee Symbols -------- Pages Processing 
: File Total Loaded Percent Mapped Time 
> _$255$DUA28:(SYSLIBILIB.L32;1 18619 51 0 1000 00:01.9 
: COMMAND QUALIFIERS 
: BLISS/CHECK=(FIELD, INITIAL, OPTIMIZE) /LIS=L1S$:F INDHELD/OBJ=OBJ$:F INDHELD MSRC$:F INDHELD/UPDATE=(ENH$:F INDHELD) 


7 
A 
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